home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSOXP Places 1.xpl < prev    next >
Text File  |  2004-01-29  |  3KB  |  101 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office XP\Open/Save Dialog\Visible Places"
  5. "NAME"="Visible Items"
  6. "VERSION"="1.07"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show "Desktop" in places bar"
  9. "TEXT 2"="Show "Favorites" in places bar"
  10. "TEXT 3"="Show "My Documents" in places bar"
  11. "TEXT 4"="Show "Publishing/Network" in places bar"
  12. "TEXT 5"="Show "Recent" in places bar"
  13. "DESCRIPTION 1"="Office XP has an "Places Bar" on the left side of its Open/Save dialog."
  14. "DESCRIPTION 2"="This dialog features a lot of system folders by default, but you can deactivate them here."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Thanks to http://www.pcnineoneone.com/tweaks/tweekz1g.html"
  19. "COMMENT 2"="Thanks also to Dunn Steve-BSD001 [Steve_Dunn-BSD001@email.mot.com] for the idea!"
  20.  
  21.  
  22.  
  23. sV1="HKCU\Software\Microsoft\Office\10.0\Common\Open Find\Places\StandardPlaces\Desktop\Show"
  24. sV2="HKCU\Software\Microsoft\Office\10.0\Common\Open Find\Places\StandardPlaces\Favorites\Show"
  25. sV3="HKCU\Software\Microsoft\Office\10.0\Common\Open Find\Places\StandardPlaces\MyDocuments\Show"
  26. sV4="HKCU\Software\Microsoft\Office\10.0\Common\Open Find\Places\StandardPlaces\Publishing\Show"
  27. sV5="HKCU\Software\Microsoft\Office\10.0\Common\Open Find\Places\StandardPlaces\Recent\Show"
  28.  
  29. sPCheck="HKCU\Software\Microsoft\Office\10.0\"
  30. Sub Plugin_Initialize 
  31. if RegPathExists(sPCheck) then
  32.    i=RegReadValue(sV1)
  33.    if i=1 or IsEmpty(i) then SetUiElement 1,true
  34.  
  35.    i=RegReadValue(sV2)
  36.    if i=1 or IsEmpty(i) then SetUiElement 2,true
  37.  
  38.    i=RegReadValue(sV3)
  39.    if i=1 or IsEmpty(i) then SetUiElement 3,true
  40.  
  41.    i=RegReadValue(sV4)
  42.    if i=1 or IsEmpty(i) then SetUiElement 4,true
  43.  
  44.    i=RegReadValue(sV5)
  45.    if i=1 or IsEmpty(i) then SetUiElement 5,true
  46.  
  47. else
  48.    disable()
  49. end if
  50. End Sub
  51.  
  52.  
  53. Sub Plugin_CheckData(ElementIndex)
  54. End Sub
  55.  
  56.  
  57.  
  58. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  59.  if GetUIElement(1)=true then
  60.     Call RegWriteValue(sV1,1,2)
  61.  else
  62.     Call RegWriteValue(sV1,0,2)
  63.  end if
  64.  
  65.  if GetUIElement(2)=true then
  66.     Call RegWriteValue(sV2,1,2)
  67.  else
  68.     Call RegWriteValue(sV2,0,2)
  69.  end if
  70.  
  71.  if GetUIElement(3)=true then
  72.     Call RegWriteValue(sV3,1,2)
  73.  else
  74.     Call RegWriteValue(sV3,0,2)
  75.  end if
  76.  
  77.  if GetUIElement(4)=true then
  78.     Call RegWriteValue(sV4,1,2)
  79.  else
  80.     Call RegWriteValue(sV4,0,2)
  81.  end if
  82.  
  83.  if GetUIElement(5)=true then
  84.     Call RegWriteValue(sV5,1,2)
  85.  else
  86.     Call RegWriteValue(sV5,0,2)
  87.  end if
  88.  
  89.  
  90.  
  91.  
  92.  Call Logoff()
  93. End Sub
  94.  
  95.  
  96. Sub Plugin_Terminate 
  97. End Sub
  98.  
  99.  
  100.  
  101.